home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2001 January / january_2001.iso / intercd / root / ^4Developers / VB / visbasdb / VBDB / VBDB Code / VB6 Code / Class 6 / ctlPublisher.ctl < prev    next >
Encoding:
Text File  |  1999-08-29  |  1.9 KB  |  72 lines
  1. VERSION 5.00
  2. Begin VB.UserControl ctlPublisher 
  3.    ClientHeight    =   660
  4.    ClientLeft      =   0
  5.    ClientTop       =   0
  6.    ClientWidth     =   4470
  7.    ScaleHeight     =   660
  8.    ScaleWidth      =   4470
  9.    Begin VB.TextBox txtPhone 
  10.       Height          =   285
  11.       Left            =   1440
  12.       TabIndex        =   3
  13.       Text            =   "Text2"
  14.       Top             =   360
  15.       Width           =   2895
  16.    End
  17.    Begin VB.TextBox txtPublisher 
  18.       Height          =   285
  19.       Left            =   1440
  20.       TabIndex        =   1
  21.       Text            =   "Text1"
  22.       Top             =   0
  23.       Width           =   2895
  24.    End
  25.    Begin VB.Label Label2 
  26.       Caption         =   "Phone Number"
  27.       Height          =   255
  28.       Left            =   120
  29.       TabIndex        =   2
  30.       Top             =   360
  31.       Width           =   1215
  32.    End
  33.    Begin VB.Label Label1 
  34.       Caption         =   "Publisher"
  35.       Height          =   255
  36.       Left            =   120
  37.       TabIndex        =   0
  38.       Top             =   0
  39.       Width           =   1215
  40.    End
  41. End
  42. Attribute VB_Name = "ctlPublisher"
  43. Attribute VB_GlobalNameSpace = False
  44. Attribute VB_Creatable = True
  45. Attribute VB_PredeclaredId = False
  46. Attribute VB_Exposed = True
  47. Private Sub txtPhone_Change()
  48. PropertyChanged "PublisherName"
  49. End Sub
  50.  
  51. Private Sub txtPublisher_Change()
  52. PropertyChanged "PublisherName"
  53. End Sub
  54.  
  55. Public Property Get PublisherName() As String
  56. Attribute PublisherName.VB_MemberFlags = "14"
  57. PublisherName = txtPublisher.Text
  58. End Property
  59.  
  60. Public Property Let PublisherName(ByVal vNewValue As String)
  61. txtPublisher.Text = vNewValue
  62. End Property
  63.  
  64. Public Property Get PublisherPhone() As String
  65. Attribute PublisherPhone.VB_MemberFlags = "14"
  66. PublisherPhone = txtPhone.Text
  67. End Property
  68.  
  69. Public Property Let PublisherPhone(ByVal vNewValue As String)
  70. txtPhone.Text = vNewValue
  71. End Property
  72.